<?php

echo '<br>Status Autorização '.date("d/m/Y")." - ".date("H:i:s").'<br>';

$dataVersao = array();
$erro = FALSE;

$data_env = '01082014';
$nao_gerar = 0; 
$var_destino = "4,59,183,190,252";
$total_envio = 200;
$total_de_verif = 0;


//$dados_email[] = array('data'=>'','nome'=>'','senha'=>'');

// SADT
echo '<br><blink style="color:#F00">Verificação status SADT.</blink><br>';
$var_sql = "";
//$var_sql = " and tissdt_num in( 2131913,2132153,2132768,2130891,2135641,2136001,2134353,2134482,2134707, 2134998,2135026,2148424,2135188,2135913,2135914,2135941,2136657,2140356,2138825,2140355,2140897,2143388,2143984,2143985,2144575,2145592 )"; 

//$var_sql = " and tissdt_num in(2172020) ";
 
$sql_todas_guias = "SELECT tissdt_num, tissdt_num_gui_pri, tissdt_tpo_gui_ori, tissdt_num_gui_ori, con_cod, pac_cod, tissdt_dat_env
                    FROM tissdt
                    WHERE tissdt_sta = 'E' 
                    AND tissdt_dat_emi_gui >= '".$data_env."'
                    AND con_cod IN(" . $var_destino . ") 
                    AND tissdt_tpo_gui_ori <> 'I'
                    AND ifnull(tissdt_num_gui_prs,0) < 1 
                    " . $var_sql; 
$guia_todas = odbc_exec($bd_ingres, $sql_todas_guias); 
$count_envio = 0;
while(odbc_fetch_row($guia_todas) && $count_envio < $total_envio){ 
    $count_envio++;    

    try{
        
        $num_gui_pri = '';
        $tissdt_num = odbc_result($guia_todas, 'tissdt_num'); // uso 
        $tissdt_num_gui_pri = odbc_result($guia_todas, 'tissdt_num_gui_pri'); // uso 
        $tissdt_tpo_gui_ori = odbc_result($guia_todas, 'tissdt_tpo_gui_ori'); // uso 
        $tissdt_num_gui_ori = odbc_result($guia_todas, 'tissdt_num_gui_ori'); // uso 
        $tissdt_num_con_cod = odbc_result($guia_todas, 'con_cod'); // uso 
        $pac_cod = odbc_result($guia_todas, 'pac_cod'); 
        $tissdt_dat_env = odbc_result($guia_todas, 'tissdt_dat_env'); 
        
        $tipoTransacao = 'SOLICITA_STATUS_AUTORIZACAO';
        $dataRegistroTransacao = date("Y-m-d");
        $horaRegistroTransacao = date("h:i:s");
        $versaoPadrao = '3.02.00';
        $date_hora = date("hi");
        $data_date = date("dmY");//date("Y.m.d");
        $vrf_trn = rand(1, 10000);
        $CNPJ = "92021062000106";
        
        
        
        $sql = "SELECT con_cod,tistrn_tpo,tistrn_num_ori,tistrn_num_ori_prr,tistrn_num
                FROM tistrn 
                WHERE tistrn_tpo = 'TISSDT'
                AND tistrn_num_ori = " . $tissdt_num . " ORDER BY tistrn_num DESC"; 
        $result = odbc_exec($bd_ingres, $sql);
        while(odbc_fetch_row($result)) {
            
            $sequencialTransacao = trim(odbc_result($result, 'tistrn_num')); // $tissdt_num;
            
            $tistrn_con_cod = trim(odbc_result($result, 'con_cod'));
            $tistrn_tabela = trim(odbc_result($result, 'tistrn_tpo'));
            $tistrn_num_ori = trim(odbc_result($result, 'tistrn_num_ori'));
            $tistrn_num_ori_prr = trim(odbc_result($result, 'tistrn_num_ori_prr'));      
            
            break;
        }
        
        
        $query = "SELECT con_cod_hsp_ope,con_cne, con_cgc_con FROM con WHERE con_cod = " . $tissdt_num_con_cod . "";
        $res = odbc_exec($bd_ingres, $query);
        while (odbc_fetch_row($res)) {
            $cod_hsvp = trim(odbc_result($res, 'con_cod_hsp_ope')); // uso
            $destino = trim(odbc_result($res, 'con_cne')); // uso
            $con_cgc_con = trim(odbc_result($res, 'con_cgc_con'));
        }

        
        $dataVersao['cabecalho']['identificacaoTransacao']['tipoTransacao'] = $tipoTransacao;
        $hash = $tipoTransacao;

        $dataVersao['cabecalho']['identificacaoTransacao']['sequencialTransacao'] = $sequencialTransacao;
        $hash .= $sequencialTransacao;

        $dataVersao['cabecalho']['identificacaoTransacao']['dataRegistroTransacao'] = $dataRegistroTransacao;
        $hash .= $dataRegistroTransacao;

        $dataVersao['cabecalho']['identificacaoTransacao']['horaRegistroTransacao'] = $horaRegistroTransacao;
        $hash .= $horaRegistroTransacao;

        $dataVersao['cabecalho']['origem']['identificacaoPrestador']['CNPJ'] = $CNPJ;
        $hash .= $CNPJ;

        $dataVersao['cabecalho']['destino']['registroANS'] = $destino;
        $hash .= $destino;

        $dataVersao['cabecalho']['versaoPadrao'] = $versaoPadrao;
        $hash .= $versaoPadrao;
        
        $sql_ingres = "SELECT tissdt_num_ans, tissdt_num_gui, tissdt_num_crt, tissdt_sta_rna,
                        tissdt_nom_ben, tissdt_cod_cto, tissdt_nom_cto
                FROM tissdt
                WHERE tissdt_num = " . $tissdt_num;

            $cnsl_sdt = odbc_exec($bd_ingres, $sql_ingres);
            while (odbc_fetch_row($cnsl_sdt)) {
                
                $tissdt_num_ans = trim(odbc_result($cnsl_sdt, 'tissdt_num_ans')); 
                $tissdt_num_gui = trim(odbc_result($cnsl_sdt, 'tissdt_num_gui')); 
                $tissdt_num_crt = trim(odbc_result($cnsl_sdt, 'tissdt_num_crt'));           
                $tissdt_nom_ben = trim(odbc_result($cnsl_sdt, 'tissdt_nom_ben'));     
                $tissdt_sta_rna = trim(odbc_result($cnsl_sdt, 'tissdt_sta_rna'));
                if(strlen($tissdt_sta_rna) == 0) $tissdt_sta_rna = 'N';
                $tissdt_cod_cto = trim(odbc_result($cnsl_sdt, 'tissdt_cod_cto')); 
                $tissdt_nom_cto = trim(odbc_result($cnsl_sdt, 'tissdt_nom_cto')); 
                        
                if (strlen($tissdt_num_ans) == 0) $tissdt_num_ans = '319384';
                
                
                $dataVersao['solicitacaoStatusAutorizacao']['identificacaoSolicitacao']['registroANS'] = $tissdt_num_ans;
                $hash .= $tissdt_num_ans;
                
                $dataVersao['solicitacaoStatusAutorizacao']['identificacaoSolicitacao']['numeroGuiaPrestador'] = $tissdt_num_gui;
                $hash .= $tissdt_num_gui;
                
                
                
                $dataVersao['solicitacaoStatusAutorizacao']['dadosBeneficiario']['numeroCarteira'] = $tissdt_num_crt;
                $hash .= $tissdt_num_crt;
                
                $dataVersao['solicitacaoStatusAutorizacao']['dadosBeneficiario']['atendimentoRN'] = $tissdt_sta_rna;
                $hash .= $tissdt_sta_rna;
                
                $dataVersao['solicitacaoStatusAutorizacao']['dadosBeneficiario']['nomeBeneficiario'] = $tissdt_nom_ben;
                $hash .= $tissdt_nom_ben;
                

                $dataVersao['solicitacaoStatusAutorizacao']['dadosContratado']['codigoPrestadorNaOperadora'] = $cod_hsvp;
                $hash .= $tissdt_cod_cto;
                
                $dataVersao['solicitacaoStatusAutorizacao']['dadosContratado']['nomeContratado'] = 'HOSPITAL SAO VICENTE DE PAULO';
                $hash .= $tissdt_nom_cto;
                
                
                $dataVersao['hash'] = md5($hash);
                
                $xml = xml::arraytoXml($dataVersao, 'mensagemTISS');
                $xml = xml::ajustaVersaoXml($xml); 
                
                $estrutura = $funcoes->verificarDiretorios();
                
                $arq_xml_err = 'arquivos/xml_err/' . $estrutura . $tissdt_num . '.xml';
                $arq_xml_sta = 'arquivos/xml_sta/'     . $estrutura . $sequencialTransacao . '_env.xml';
                
                
                file_put_contents($arq_xml_sta, $xml);

                $xml = file_get_contents($arq_xml_sta);
                $xml = xml::xmlToArray($xml); // CUIDADO SE TIVER UM VALOR VAZIO - VAI O VALOR O TEXTO ARRAY, DESTA FORMA OCORRE ERRO
                $xml['hash'] = xml::hashToArray($xml); 
                
                //@unlink($arq_xml_xml);
                
                
                $result = $clientSoap->tissSolicitacaoStatusAutorizacao($xml);
                
                
                $xml_arq = xml::objectToArray($result);
                //print_r($xml_arq);
                
                $arq_xml_sta = 'arquivos/xml_sta/'     . $estrutura . $sequencialTransacao . '_rtn.xml';
                
                $xml_arq = xml::arraytoXml($xml_arq, 'mensagemTISS');
                $xml_arq = xml::ajustaVersaoXml($xml_arq);
                file_put_contents($arq_xml_sta, $xml_arq); 
                
                $resultado = $retorno->Processamento($result,'SDT_STA');  
                $total_de_verif++;
                
                $pac_nom = '';
                $query = "SELECT pac_nom,pac_sbn FROM pac WHERE pac_cod = " . $pac_cod;
                $res_qry = odbc_exec($bd_ingres, $query);
                while (odbc_fetch_row($res_qry)){
                    $pac_nom =  odbc_result($res_qry, 'pac_nom');
                    $pac_nom .=  ' '.odbc_result($res_qry, 'pac_sbn');
                }
                
                $snh_gui_pri = '';
                $query = "SELECT tissdt_snh FROM tissdt WHERE tissdt_num = " . $tissdt_num_gui_ori;
                $res_qry = odbc_exec($bd_ingres, $query);
                while (odbc_fetch_row($res_qry)){
                    $snh_gui_pri = odbc_result($res_qry, 'tissdt_snh');
                }
                
                @$senha = $result->situacaoAutorizacao->autorizacaoServico->dadosAutorizacao->senha;
                $msg = $count_envio.' - Guia: '.$tissdt_num.' - Senha: '.$senha.' - Paciente: '.$pac_cod.' - '.$pac_nom.' - Carteira: '.$tissdt_num_crt.' - Senha principal:'.$snh_gui_pri.' | Numero Transação: '.$sequencialTransacao;                    
                    
                if($resultado == TRUE){     
                    if(strlen($senha) == 0){
                        $query = "SELECT tissdtpcd_qtd_pcd_sol, tissdtpcd_tab_pcd_sol, tissdtpcd_cod_pcd_sol, tissdtpcd_des_pcd_sol, tissdtpcd_num, tissdtpcd_nom_pcd_sol
                        FROM tissdtpcd
                        WHERE tissdtpcd_sta <> 'C' AND tissdt_num=" . $tissdt_num;
                        $result_q = odbc_exec($bd_ingres, $query);
                        $msg .= ' - Procedimentos(';
                        while (odbc_fetch_row($result_q)){
                            $cod = odbc_result($result_q, 'tissdtpcd_cod_pcd_sol'); 
                            $nom = odbc_result($result_q, 'tissdtpcd_nom_pcd_sol');
                            $qtd = odbc_result($result_q, 'tissdtpcd_qtd_pcd_sol');
                            $msg .= 'cod:'.$cod.' | nom:'.$nom.' | qtd:'.$qtd;
                        }
                        $msg .= ')';
                    }
                    echo $msg .= ' - Enviado e processado retorno!<br><br>'; 
                    //file_put_contents($arq_xml_sta.'_sucesso', $msg);
                    odbc_commit($bd_ingres);
                    
                    // pega itens email
                    if(@$result->situacaoAutorizacao->autorizacaoServico->statusSolicitacao == 2)
                    {
                        $dados_email[] = array(
                            'data'  => $tissdt_dat_env,
                            'nome'  => $pac_nom,
                            'senha' => $senha,
                        );
                    }
                    
                }else if($resultado == FALSE){
                    odbc_rollback($bd_ingres);
                    
                    if(strlen($senha) == 0){
                        
                        $query = "SELECT tissdtpcd_qtd_pcd_sol, tissdtpcd_tab_pcd_sol, tissdtpcd_cod_pcd_sol, tissdtpcd_des_pcd_sol, tissdtpcd_num, tissdtpcd_nom_pcd_sol
                        FROM tissdtpcd
                        WHERE tissdtpcd_sta <> 'C' AND tissdt_num=" . $tissdt_num;
                        $result = odbc_exec($bd_ingres, $query);
                        $msg .= ' - Procedimentos(';
                        while (odbc_fetch_row($result)){
                            $cod = odbc_result($result, 'tissdtpcd_cod_pcd_sol'); 
                            $nom = odbc_result($result, 'tissdtpcd_nom_pcd_sol');
                            $qtd = odbc_result($result, 'tissdtpcd_qtd_pcd_sol');
                            $msg .= 'cod:'.$cod.' | nom:'.$nom.' | qtd:'.$qtd;
                        }
                        $msg .= ')';
                    }
                    
                    echo $msg .= ' - Erro não processado retorno!<br><br>';
                    file_put_contents($arq_xml_err, $msg); 
                }  
                  
            }
       
    } catch (Exception $ex) {
        odbc_rollback($bd_ingres);
    }
}



//internação
echo '<br><blink style="color:#F00">Verificação status INT.</blink><br>';

$var_sql = "";
//$var_sql = " AND tisint_num in( 2136946, 2136946, 2151357, 2149391, 2144274, 2157445, 2157481, 2155355 )";
//$var_sql = " AND tisint_num in (  2143945 )";

$sql_todas_guias = "SELECT tisint_num,	con_cod, pac_cod, tisint_dat_env
                    FROM tisint
                    WHERE tisint_sta='E' 
                    AND tisint_dat_emi_gui >= '".$data_env."'
                    AND con_cod IN(" . $var_destino . ")   
                    AND ifnull(tisint_num_gui_prs,0) < 1     
                    " . $var_sql;
$guia_todas = odbc_exec($bd_ingres, $sql_todas_guias); 
$count_envio = 0;
while(odbc_fetch_row($guia_todas) && $count_envio < $total_envio){ 
    $count_envio++;    
    
    try{ 
        
        $tisint_num = odbc_result($guia_todas, 'tisint_num'); //odbc_field_name($guia_todas,1));
        $tisint_con_cod = odbc_result($guia_todas, 'con_cod'); //odbc_field_name($guia_todas,2));
        $pac_cod = odbc_result($guia_todas, 'pac_cod'); 
        $tisint_dat_env = odbc_result($guia_todas, 'tisint_dat_env'); 
        
        
        $tipoTransacao = 'SOLICITA_STATUS_AUTORIZACAO';
        $dataRegistroTransacao = date("Y-m-d");
        $horaRegistroTransacao = date("h:i:s");
        $versaoPadrao = '3.02.00';
        $date_hora = date("hi");
        $data_date = date("dmY");
        $vrf_trn = rand(1, 10000);
        $CNPJ = "92021062000106";
        
        
        $sql = "SELECT con_cod,tistrn_tpo,tistrn_num_ori,tistrn_num_ori_prr,tistrn_num
                FROM tistrn 
                WHERE tistrn_tpo = 'TISINT' 
                AND tistrn_num_ori = " . $tisint_num . " ORDER BY tistrn_num DESC"; 
        $result = odbc_exec($bd_ingres, $sql);
        while(odbc_fetch_row($result)) {
            
            $sequencialTransacao = trim(odbc_result($result, 'tistrn_num')); // $tissdt_num;
            
            $tistrn_con_cod = trim(odbc_result($result, 'con_cod'));
            $tistrn_tabela = trim(odbc_result($result, 'tistrn_tpo'));
            $tistrn_num_ori = trim(odbc_result($result, 'tistrn_num_ori'));
            $tistrn_num_ori_prr = trim(odbc_result($result, 'tistrn_num_ori_prr'));      
            
            break;
        }
        
        
        $query = "SELECT con_cod_hsp_ope,con_cne, con_cgc_con FROM con WHERE con_cod = " . $tisint_con_cod . "";
        $res = odbc_exec($bd_ingres, $query);
        while (odbc_fetch_row($res)) {
            $cod_hsvp = trim(odbc_result($res, 'con_cod_hsp_ope')); // uso
            $destino = trim(odbc_result($res, 'con_cne')); // uso
            $con_cgc_con = trim(odbc_result($res, 'con_cgc_con'));
        }

        
        $dataVersao['cabecalho']['identificacaoTransacao']['tipoTransacao'] = $tipoTransacao;
        $hash = $tipoTransacao;

        $dataVersao['cabecalho']['identificacaoTransacao']['sequencialTransacao'] = $sequencialTransacao;
        $hash .= $sequencialTransacao;

        $dataVersao['cabecalho']['identificacaoTransacao']['dataRegistroTransacao'] = $dataRegistroTransacao;
        $hash .= $dataRegistroTransacao;

        $dataVersao['cabecalho']['identificacaoTransacao']['horaRegistroTransacao'] = $horaRegistroTransacao;
        $hash .= $horaRegistroTransacao;

        $dataVersao['cabecalho']['origem']['identificacaoPrestador']['CNPJ'] = $CNPJ;
        $hash .= $CNPJ;

        $dataVersao['cabecalho']['destino']['registroANS'] = $destino;
        $hash .= $destino;

        $dataVersao['cabecalho']['versaoPadrao'] = $versaoPadrao;
        $hash .= $versaoPadrao;
        
        $sql_ingres_tisint = "SELECT tisint_num_ans, tisint_num_gui, tisint_num_crt, tisint_nom_ben, 
            tisint_sta_rna, tisint_cod_prf, tisint_nom_prf
            FROM tisint
            WHERE tisint_num = " . $tisint_num;
        
        $cnsl_int = odbc_exec($bd_ingres, $sql_ingres_tisint);
        while (odbc_fetch_row($cnsl_int)) {
                
            $tisint_num_ans = trim(odbc_result($cnsl_int, 'tisint_num_ans')); 
            $tisint_num_gui = trim(odbc_result($cnsl_int, 'tisint_num_gui')); 
            $tisint_num_crt = trim(odbc_result($cnsl_int, 'tisint_num_crt'));           
            $tisint_nom_ben = trim(odbc_result($cnsl_int, 'tisint_nom_ben'));     
            $tisint_sta_rna = trim(odbc_result($cnsl_int, 'tisint_sta_rna'));
            if(strlen($tisint_sta_rna) == 0) $tisint_sta_rna = 'N';
            $tisint_cod_prf = trim(odbc_result($cnsl_int, 'tisint_cod_prf')); 
            $tisint_nom_prf = trim(odbc_result($cnsl_int, 'tisint_nom_prf'));

            if (strlen($tisint_num_ans) == 0) $tisint_num_ans = '319384';


            $dataVersao['solicitacaoStatusAutorizacao']['identificacaoSolicitacao']['registroANS'] = $tisint_num_ans;
            $hash .= $tisint_num_ans;

            $dataVersao['solicitacaoStatusAutorizacao']['identificacaoSolicitacao']['numeroGuiaPrestador'] = $tisint_num_gui;
            $hash .= $tisint_num_gui;



            $dataVersao['solicitacaoStatusAutorizacao']['dadosBeneficiario']['numeroCarteira'] = $tisint_num_crt;
            $hash .= $tisint_num_crt;

            $dataVersao['solicitacaoStatusAutorizacao']['dadosBeneficiario']['atendimentoRN'] = $tisint_sta_rna;
            $hash .= $tisint_sta_rna;

            $dataVersao['solicitacaoStatusAutorizacao']['dadosBeneficiario']['nomeBeneficiario'] = $tisint_nom_ben;
            $hash .= $tisint_nom_ben;



            $dataVersao['solicitacaoStatusAutorizacao']['dadosContratado']['codigoPrestadorNaOperadora'] = $cod_hsvp;
            $hash .= $tisint_cod_prf;

            $dataVersao['solicitacaoStatusAutorizacao']['dadosContratado']['nomeContratado'] = 'HOSPITAL SAO VICENTE DE PAULO';
            $hash .= $tisint_nom_prf;


            $dataVersao['hash'] = md5($hash);

            $xml = xml::arraytoXml($dataVersao, 'mensagemTISS');
            $xml = xml::ajustaVersaoXml($xml); 

            $estrutura = $funcoes->verificarDiretorios();
            
            $arq_xml_err = 'arquivos/xml_err/' . $estrutura . $tisint_num . '.xml';
            $arq_xml_sta = 'arquivos/xml_sta/'     . $estrutura . $sequencialTransacao . '_env.xml';


            file_put_contents($arq_xml_sta, $xml);

            $xml = file_get_contents($arq_xml_sta);
            $xml = xml::xmlToArray($xml); // CUIDADO SE TIVER UM VALOR VAZIO - VAI O VALOR O TEXTO ARRAY, DESTA FORMA OCORRE ERRO
            $xml['hash'] = xml::hashToArray($xml); 

            //@unlink($arq_xml_xml);


            $result = $clientSoap->tissSolicitacaoStatusAutorizacao($xml);

            $xml_arq = xml::objectToArray($result);
            //print_r($xml_arq);
            
            $arq_xml_sta = 'arquivos/xml_sta/'     . $estrutura . $sequencialTransacao . '_rtn.xml';

            $xml_arq = xml::arraytoXml($xml_arq, 'mensagemTISS');
            $xml_arq = xml::ajustaVersaoXml($xml_arq);
            file_put_contents($arq_xml_sta, $xml_arq); 

            $resultado = $retorno->Processamento($result,'INT_STA');  
            $total_de_verif++;
            
            $pac_nom = '';
            $query = "SELECT pac_nom,pac_sbn FROM pac WHERE pac_cod = " . $pac_cod;
            $res_qry = odbc_exec($bd_ingres, $query);
            while (odbc_fetch_row($res_qry)){
                $pac_nom =  odbc_result($res_qry, 'pac_nom');
                $pac_nom .=  ' '.odbc_result($res_qry, 'pac_sbn');
            }
            
            @$senha = $result->situacaoAutorizacao->autorizacaoInternacao->autorizacaoDosServicos->dadosAutorizacao->senha;
            $msg = $count_envio.' - Guia: '.$tisint_num.' - Senha: '.$senha.' - Paciente: '.$pac_cod.' - '.$pac_nom.' - Carteira: '.$tisint_num_crt.' | Numero Transação: '.$sequencialTransacao;                    
                      
            if($resultado == TRUE){
                if(strlen($senha) == 0){
                    $query = "SELECT tisintpcd_qtd_pcd_sol, tisintpcd_tab_pcd_sol, tisintpcd_cod_pcd_sol, tisintpcd_des_pcd_sol, tisintpcd_num, tisintpcd_nom_pcd_sol 
                        FROM tisintpcd 
                        WHERE tisintpcd_sta <> 'C' AND tisint_num=" . $tisint_num;
                    $result_q = odbc_exec($bd_ingres, $query);
                    $msg .= ' - Procedimentos(';
                    while(odbc_fetch_row($result_q)){
                        $cod = odbc_result($result_q, 'tisintpcd_cod_pcd_sol'); 
                        $nom = odbc_result($result_q, 'tisintpcd_nom_pcd_sol');
                        $qtd = odbc_result($result_q, 'tisintpcd_qtd_pcd_sol');
                        $msg .= 'cod:'.$cod.' | nom:'.$nom.' | qtd:'.$qtd;
                    }
                    $msg .= ')';
                }
                echo $msg .= ' - Processado retorno!<br><br>'; 
                //file_put_contents($arq_xml_sta.'_sucesso', $msg);
                odbc_commit($bd_ingres);
                
                if(@$result->situacaoAutorizacao->autorizacaoInternacao->autorizacaoDosServicos->statusSolicitacao == 2){
                    // pega itens email
                    $dados_email[] = array(
                        'data'  => $tisint_dat_env,
                        'nome'  => $pac_nom,
                        'senha' => $senha,
                    );
                }
                
            }else if($resultado == FALSE){
                odbc_rollback($bd_ingres);
                
                if(strlen($senha) == 0){
                    $query = "SELECT tisintpcd_qtd_pcd_sol, tisintpcd_tab_pcd_sol, tisintpcd_cod_pcd_sol, tisintpcd_des_pcd_sol, tisintpcd_num, tisintpcd_nom_pcd_sol
                    FROM tisintpcd
                    WHERE tisintpcd_sta <> 'C' AND tisint_num=" . $tisint_num;
                    $result = odbc_exec($bd_ingres, $query);
                    $msg .= ' - Procedimentos(';
                    while (odbc_fetch_row($result)){
                        $cod = odbc_result($result, 'tisintpcd_cod_pcd_sol'); 
                        $nom = odbc_result($result, 'tisintpcd_nom_pcd_sol');
                        $qtd = odbc_result($result, 'tisintpcd_qtd_pcd_sol');
                        $msg .= 'cod:'.$cod.' | nom:'.$nom.' | qtd:'.$qtd;
                    }
                    $msg .= ')';
                }
                
                echo $msg .= ' - Erro não processado retorno!<br><br>';
                file_put_contents($arq_xml_err, $msg); 
            }  

        }
       
    } catch (Exception $ex) {
        odbc_rollback($bd_ingres);
    }
}



// internação sadt
echo '<br><blink style="color:#F00">Verificação status SADT da internação.</blink><br>';

$var_sql = "";
//$var_sql = " and tissdt_num in( 2141830,2143013 )"; // 2142800 
//$var_sql = " and tissdt_num in(2133215) ";

// 
$sql_todas_guias = "SELECT tissdt_num, tissdt_num_gui_pri, tissdt_tpo_gui_ori, tissdt_num_gui_ori, con_cod, pac_cod, tissdt_dat_env
                    FROM tissdt
                    WHERE tissdt_sta = 'E' 
                    AND tissdt_dat_emi_gui >= '".$data_env."'
                    AND con_cod IN(" . $var_destino . ")                     
                    AND tissdt_tpo_gui_ori = 'I'
                    AND ifnull(tissdt_num_gui_prs,0) < 1 
                    " . $var_sql; 
$guia_todas = odbc_exec($bd_ingres, $sql_todas_guias); 
$count_envio = 0;
while(odbc_fetch_row($guia_todas) && $count_envio < $total_envio){ 
    $count_envio++;    

    try{
        
        $num_gui_pri = '';
        $tissdt_num = odbc_result($guia_todas, 'tissdt_num'); // uso 
        $tissdt_num_gui_pri = odbc_result($guia_todas, 'tissdt_num_gui_pri'); // uso 
        $tissdt_tpo_gui_ori = odbc_result($guia_todas, 'tissdt_tpo_gui_ori'); // uso 
        $tissdt_num_gui_ori = odbc_result($guia_todas, 'tissdt_num_gui_ori'); // uso 
        $tissdt_num_con_cod = odbc_result($guia_todas, 'con_cod'); // uso 
        $pac_cod = odbc_result($guia_todas, 'pac_cod'); 
        $tissdt_dat_env = odbc_result($guia_todas, 'tissdt_dat_env'); 
        
        $tipoTransacao = 'SOLICITA_STATUS_AUTORIZACAO';
        $dataRegistroTransacao = date("Y-m-d");
        $horaRegistroTransacao = date("h:i:s");
        $versaoPadrao = '3.02.00';
        $date_hora = date("hi");
        $data_date = date("dmY");//date("Y.m.d");
        $vrf_trn = rand(1, 10000);
        $CNPJ = "92021062000106";
        
        
        
        $sql = "SELECT con_cod,tistrn_tpo,tistrn_num_ori,tistrn_num_ori_prr,tistrn_num
                FROM tistrn 
                WHERE tistrn_tpo = 'TISSDT'
                AND tistrn_num_ori = " . $tissdt_num . " ORDER BY tistrn_num DESC"; 
        $result = odbc_exec($bd_ingres, $sql);
        while(odbc_fetch_row($result)) {
            
            $sequencialTransacao = trim(odbc_result($result, 'tistrn_num')); // $tissdt_num;
            
            $tistrn_con_cod = trim(odbc_result($result, 'con_cod'));
            $tistrn_tabela = trim(odbc_result($result, 'tistrn_tpo'));
            $tistrn_num_ori = trim(odbc_result($result, 'tistrn_num_ori'));
            $tistrn_num_ori_prr = trim(odbc_result($result, 'tistrn_num_ori_prr'));      
            
            break;
        }
        
        
        $query = "SELECT con_cod_hsp_ope,con_cne, con_cgc_con FROM con WHERE con_cod = " . $tissdt_num_con_cod . "";
        $res = odbc_exec($bd_ingres, $query);
        while (odbc_fetch_row($res)) {
            $cod_hsvp = trim(odbc_result($res, 'con_cod_hsp_ope')); // uso
            $destino = trim(odbc_result($res, 'con_cne')); // uso
            $con_cgc_con = trim(odbc_result($res, 'con_cgc_con'));
        }

        
        $dataVersao['cabecalho']['identificacaoTransacao']['tipoTransacao'] = $tipoTransacao;
        $hash = $tipoTransacao;

        $dataVersao['cabecalho']['identificacaoTransacao']['sequencialTransacao'] = $sequencialTransacao;
        $hash .= $sequencialTransacao;

        $dataVersao['cabecalho']['identificacaoTransacao']['dataRegistroTransacao'] = $dataRegistroTransacao;
        $hash .= $dataRegistroTransacao;

        $dataVersao['cabecalho']['identificacaoTransacao']['horaRegistroTransacao'] = $horaRegistroTransacao;
        $hash .= $horaRegistroTransacao;

        $dataVersao['cabecalho']['origem']['identificacaoPrestador']['CNPJ'] = $CNPJ;
        $hash .= $CNPJ;

        $dataVersao['cabecalho']['destino']['registroANS'] = $destino;
        $hash .= $destino;

        $dataVersao['cabecalho']['versaoPadrao'] = $versaoPadrao;
        $hash .= $versaoPadrao;
        
        $sql_ingres = "SELECT tissdt_num_ans, tissdt_num_gui, tissdt_num_crt, tissdt_sta_rna,
                        tissdt_nom_ben, tissdt_cod_cto, tissdt_nom_cto
                FROM tissdt
                WHERE tissdt_num = " . $tissdt_num;

            $cnsl_sdt = odbc_exec($bd_ingres, $sql_ingres);
            while (odbc_fetch_row($cnsl_sdt)) {
                
                $tissdt_num_ans = trim(odbc_result($cnsl_sdt, 'tissdt_num_ans')); 
                $tissdt_num_gui = trim(odbc_result($cnsl_sdt, 'tissdt_num_gui')); 
                $tissdt_num_crt = trim(odbc_result($cnsl_sdt, 'tissdt_num_crt'));           
                $tissdt_nom_ben = trim(odbc_result($cnsl_sdt, 'tissdt_nom_ben'));     
                $tissdt_sta_rna = trim(odbc_result($cnsl_sdt, 'tissdt_sta_rna'));
                if(strlen($tissdt_sta_rna) == 0) $tissdt_sta_rna = 'N';
                $tissdt_cod_cto = trim(odbc_result($cnsl_sdt, 'tissdt_cod_cto')); 
                $tissdt_nom_cto = trim(odbc_result($cnsl_sdt, 'tissdt_nom_cto')); 
                        
                if (strlen($tissdt_num_ans) == 0) $tissdt_num_ans = '319384';
                
                
                $dataVersao['solicitacaoStatusAutorizacao']['identificacaoSolicitacao']['registroANS'] = $tissdt_num_ans;
                $hash .= $tissdt_num_ans;
                
                $dataVersao['solicitacaoStatusAutorizacao']['identificacaoSolicitacao']['numeroGuiaPrestador'] = $tissdt_num_gui;
                $hash .= $tissdt_num_gui;
                
                
                
                $dataVersao['solicitacaoStatusAutorizacao']['dadosBeneficiario']['numeroCarteira'] = $tissdt_num_crt;
                $hash .= $tissdt_num_crt;
                
                $dataVersao['solicitacaoStatusAutorizacao']['dadosBeneficiario']['atendimentoRN'] = $tissdt_sta_rna;
                $hash .= $tissdt_sta_rna;
                
                $dataVersao['solicitacaoStatusAutorizacao']['dadosBeneficiario']['nomeBeneficiario'] = $tissdt_nom_ben;
                $hash .= $tissdt_nom_ben;
                

                $dataVersao['solicitacaoStatusAutorizacao']['dadosContratado']['codigoPrestadorNaOperadora'] = $cod_hsvp;
                $hash .= $tissdt_cod_cto;
                
                $dataVersao['solicitacaoStatusAutorizacao']['dadosContratado']['nomeContratado'] = 'HOSPITAL SAO VICENTE DE PAULO';
                $hash .= $tissdt_nom_cto;
                
                
                $dataVersao['hash'] = md5($hash);
                
                $xml = xml::arraytoXml($dataVersao, 'mensagemTISS');
                $xml = xml::ajustaVersaoXml($xml); 
                
                $estrutura = $funcoes->verificarDiretorios();
                
                $arq_xml_err = 'arquivos/xml_err/' . $estrutura . $tissdt_num . '.xml';
                $arq_xml_sta = 'arquivos/xml_sta/'     . $estrutura . $sequencialTransacao . '_env.xml';
                
                
                file_put_contents($arq_xml_sta, $xml);

                $xml = file_get_contents($arq_xml_sta);
                $xml = xml::xmlToArray($xml); // CUIDADO SE TIVER UM VALOR VAZIO - VAI O VALOR O TEXTO ARRAY, DESTA FORMA OCORRE ERRO
                $xml['hash'] = xml::hashToArray($xml); 
                
                //@unlink($arq_xml_xml);
                
                
                $result = $clientSoap->tissSolicitacaoStatusAutorizacao($xml);
                
                
                $xml_arq = xml::objectToArray($result);
                //print_r($xml_arq);
                
                $arq_xml_sta = 'arquivos/xml_sta/'     . $estrutura . $sequencialTransacao . '_rtn.xml';
                
                $xml_arq = xml::arraytoXml($xml_arq, 'mensagemTISS');
                $xml_arq = xml::ajustaVersaoXml($xml_arq);
                file_put_contents($arq_xml_sta, $xml_arq); 
                
                $resultado = $retorno->Processamento($result,'INT_STA_VNC');  
                $total_de_verif++;
                
                if(isset($result->situacaoAutorizacao->autorizacaoServico->statusSolicitacao)) // correção das que foram solicitadas na estrutura errada
                    @$senha = $result->situacaoAutorizacao->autorizacaoServico->dadosAutorizacao->senha;
                else if(isset($result->situacaoAutorizacao->autorizacaoInternacao->autorizacaoDosServicos->statusSolicitacao)) // correção das que foram solicitadas na estrutura errada
                    @$senha = $result->situacaoAutorizacao->autorizacaoInternacao->autorizacaoDosServicos->dadosAutorizacao->senha;
                else
                    @$senha = $result->situacaoAutorizacao->autorizacaoProrrogacao->autorizacaoDosServicos->dadosAutorizacao->senha; // chamada correta
                
                $pac_nom = '';
                $query = "SELECT pac_nom,pac_sbn FROM pac WHERE pac_cod = " . $pac_cod;
                $res_qry = odbc_exec($bd_ingres, $query);
                while (odbc_fetch_row($res_qry)){
                    $pac_nom =  odbc_result($res_qry, 'pac_nom');
                    $pac_nom .=  ' '.odbc_result($res_qry, 'pac_sbn');
                }
                
                $snh_gui_pri = '';
                $query = "SELECT tissdt_snh FROM tissdt WHERE tissdt_num = " . $tissdt_num_gui_ori;
                $res_qry = odbc_exec($bd_ingres, $query);
                while (odbc_fetch_row($res_qry)){
                    $snh_gui_pri = odbc_result($res_qry, 'tissdt_snh');
                }
                
                $msg = $count_envio.' - Guia: '.$tissdt_num.' - Senha: '.$senha.' - Paciente: '.$pac_cod.' - '.$pac_nom.' - Carteira: '.$tissdt_num_crt.' - Senha principal:'.$snh_gui_pri.' | Numero Transação: '.$sequencialTransacao;                    
                
                if($resultado == TRUE){
                    if(strlen($senha) == 0){
                        $query = "SELECT tissdtpcd_qtd_pcd_sol, tissdtpcd_tab_pcd_sol, tissdtpcd_cod_pcd_sol, tissdtpcd_des_pcd_sol, tissdtpcd_num, tissdtpcd_nom_pcd_sol
                        FROM tissdtpcd
                        WHERE tissdtpcd_sta <> 'C' AND tissdt_num=" . $tissdt_num;
                        $result = odbc_exec($bd_ingres, $query);
                        $msg .= ' - Procedimentos(';
                        while (odbc_fetch_row($result)){
                            $cod = odbc_result($result, 'tissdtpcd_cod_pcd_sol'); 
                            $nom = odbc_result($result, 'tissdtpcd_nom_pcd_sol');
                            $qtd = odbc_result($result, 'tissdtpcd_qtd_pcd_sol');
                            $msg .= 'cod:'.$cod.' | nom:'.$nom.' | qtd:'.$qtd;
                        }
                        $msg .= ')';
                    }
                    echo $msg .= ' - Processado retorno!<br><br>'; 
                    //file_put_contents($arq_xml_sta.'_sucesso', $msg);
                    odbc_commit($bd_ingres);
                    
                    
                    if(@$result->situacaoAutorizacao->autorizacaoServico->statusSolicitacao == 2 ||
                            @$result->situacaoAutorizacao->autorizacaoInternacao->autorizacaoDosServicos->statusSolicitacao == 2){
                        // pega itens email
                        $dados_email[] = array(
                            'data'  => $tissdt_dat_env,
                            'nome'  => $pac_nom,
                            'senha' => $senha,
                        );
                    }
                    
                }else if($resultado == FALSE){
                    odbc_rollback($bd_ingres);
                    
                    if(strlen($senha) == 0){
                        
                        $query = "SELECT tissdtpcd_qtd_pcd_sol, tissdtpcd_tab_pcd_sol, tissdtpcd_cod_pcd_sol, tissdtpcd_des_pcd_sol, tissdtpcd_num, tissdtpcd_nom_pcd_sol
                        FROM tissdtpcd
                        WHERE tissdtpcd_sta <> 'C' AND tissdt_num=" . $tissdt_num;
                        $result = odbc_exec($bd_ingres, $query);
                        $msg .= ' - Procedimentos(';
                        while (odbc_fetch_row($result)){
                            $cod = odbc_result($result, 'tissdtpcd_cod_pcd_sol'); 
                            $nom = odbc_result($result, 'tissdtpcd_nom_pcd_sol');
                            $qtd = odbc_result($result, 'tissdtpcd_qtd_pcd_sol');
                            $msg .= 'cod:'.$cod.' | nom:'.$nom.' | qtd:'.$qtd;
                        }
                        $msg .= ')';
                    }
                    
                    echo $msg .= ' - Erro não processado retorno!<br><br>';
                    file_put_contents($arq_xml_err, $msg); 
                }  
                  
            }
       
    } catch (Exception $ex) {
        odbc_rollback($bd_ingres);
    }
}

// prorrogação
echo '<br><blink style="color:#F00">Verificação status PRR.</blink><br>'; 
$var_sql = ""; // 2129384

//$var_sql = " AND t.tisint_num in(   )"; // 2144377 2133786 2133786

$sql_todas_guias = "SELECT t.tisint_num, t.con_cod , p.tisintprr_num, p.tisintprr_qtd_dia_sol, p.tisintprr_tpo_aco_aut, p.tisintprr_dat
                    ,t.tisint_snh, t.pac_cod
                    FROM tisintprr p, tisint t 
                    WHERE p.tisint_num = t.tisint_num 
                    AND t.tisint_sta = 'A' 
                    AND p.tisintprr_sta = 'E' 
                    AND p.tisintprr_dat >= '".$data_env."'
                    AND t.con_cod IN(" . $var_destino . ")                     
                    AND p.tisintprr_tpo_ori = 1 
                    ". $var_sql; 
$guia_todas = odbc_exec($bd_ingres, $sql_todas_guias);
$count_envio = 0;
while(odbc_fetch_row($guia_todas) && $count_envio < $total_envio){ 
    try{ 
        
        $tisint_num = odbc_result($guia_todas, 'tisint_num'); //odbc_field_name($guia_todas,1));
        $tisint_con_cod = odbc_result($guia_todas, 'con_cod'); //odbc_field_name($guia_todas,2));
        $tisintprr_dat = odbc_result($guia_todas, 'tisintprr_dat');   
        $tisintprr_num = odbc_result($guia_todas, 'tisintprr_num'); //odbc_field_name($guia_todas,1));
        $tisint_snh = odbc_result($guia_todas, 'tisint_snh'); 
        $tisintprr_qtd_dia_sol = odbc_result($guia_todas, 'tisintprr_qtd_dia_sol'); 
        $tisintprr_tpo_aco_aut = odbc_result($guia_todas, 'tisintprr_tpo_aco_aut'); 
        $pac_cod = odbc_result($guia_todas, 'pac_cod'); 
        
        $tipoTransacao = 'SOLICITA_STATUS_AUTORIZACAO';
        $dataRegistroTransacao = date("Y-m-d");
        $horaRegistroTransacao = date("h:i:s");
        $versaoPadrao = '3.02.00';
        $date_hora = date("hi");
        $data_date = date("dmY");
        $vrf_trn = rand(1, 10000);
        $CNPJ = "92021062000106";
        
        
        $sql = "SELECT con_cod,tistrn_tpo,tistrn_num_ori,tistrn_num_ori_prr,tistrn_num
                FROM tistrn 
                WHERE tistrn_tpo = 'TISINTPRR' 
                AND tistrn_num_ori = " . $tisint_num . " OR tistrn_num_ori_prr = " . $tisint_num . " ORDER BY tistrn_num DESC"; 
        $result = odbc_exec($bd_ingres, $sql);
        while(odbc_fetch_row($result)) {
            
            $sequencialTransacao = trim(odbc_result($result, 'tistrn_num')); // $tissdt_num;
            
            $tistrn_con_cod = trim(odbc_result($result, 'con_cod'));
            $tistrn_tabela = trim(odbc_result($result, 'tistrn_tpo'));
            $tistrn_num_ori = trim(odbc_result($result, 'tistrn_num_ori'));
            $tistrn_num_ori_prr = trim(odbc_result($result, 'tistrn_num_ori_prr'));      
            
            break;
        }
        
        
        $query = "SELECT con_cod_hsp_ope,con_cne, con_cgc_con FROM con WHERE con_cod = " . $tisint_con_cod . "";
        $res = odbc_exec($bd_ingres, $query);
        while (odbc_fetch_row($res)) {
            $cod_hsvp = trim(odbc_result($res, 'con_cod_hsp_ope')); // uso
            $destino = trim(odbc_result($res, 'con_cne')); // uso
            $con_cgc_con = trim(odbc_result($res, 'con_cgc_con'));
        }

        
        $dataVersao['cabecalho']['identificacaoTransacao']['tipoTransacao'] = $tipoTransacao;
        $hash = $tipoTransacao;

        $dataVersao['cabecalho']['identificacaoTransacao']['sequencialTransacao'] = $sequencialTransacao;
        $hash .= $sequencialTransacao;

        $dataVersao['cabecalho']['identificacaoTransacao']['dataRegistroTransacao'] = $dataRegistroTransacao;
        $hash .= $dataRegistroTransacao;

        $dataVersao['cabecalho']['identificacaoTransacao']['horaRegistroTransacao'] = $horaRegistroTransacao;
        $hash .= $horaRegistroTransacao;

        $dataVersao['cabecalho']['origem']['identificacaoPrestador']['CNPJ'] = $CNPJ;
        $hash .= $CNPJ;

        $dataVersao['cabecalho']['destino']['registroANS'] = $destino;
        $hash .= $destino;

        $dataVersao['cabecalho']['versaoPadrao'] = $versaoPadrao;
        $hash .= $versaoPadrao;
        
        $sql_ingres_tisint = "SELECT tisint_num_ans, tisint_num_gui, tisint_num_crt, tisint_nom_ben, 
            tisint_sta_rna, tisint_cod_prf, tisint_nom_prf
            FROM tisint
            WHERE tisint_num = " . $tisint_num;
        
        $cnsl_int = odbc_exec($bd_ingres, $sql_ingres_tisint);
        while (odbc_fetch_row($cnsl_int)) {
            
            $count_envio++;
            
            $tisint_num_ans = trim(odbc_result($cnsl_int, 'tisint_num_ans')); 
            $tisint_num_gui = trim(odbc_result($cnsl_int, 'tisint_num_gui')); 
            $tisint_num_crt = trim(odbc_result($cnsl_int, 'tisint_num_crt'));           
            $tisint_nom_ben = trim(odbc_result($cnsl_int, 'tisint_nom_ben'));     
            $tisint_sta_rna = trim(odbc_result($cnsl_int, 'tisint_sta_rna'));
            if(strlen($tisint_sta_rna) == 0) $tisint_sta_rna = 'N';
            $tisint_cod_prf = trim(odbc_result($cnsl_int, 'tisint_cod_prf')); 
            $tisint_nom_prf = trim(odbc_result($cnsl_int, 'tisint_nom_prf'));

            if (strlen($tisint_num_ans) == 0) $tisint_num_ans = '319384';


            $dataVersao['solicitacaoStatusAutorizacao']['identificacaoSolicitacao']['registroANS'] = $tisint_num_ans;
            $hash .= $tisint_num_ans;

            $dataVersao['solicitacaoStatusAutorizacao']['identificacaoSolicitacao']['numeroGuiaPrestador'] = Funcoes::setChaveProrrogacao($tisint_num, $tisintprr_num);//$tisint_num_gui;
            $hash .= Funcoes::setChaveProrrogacao($tisint_num, $tisintprr_num);//$tisint_num_gui;



            $dataVersao['solicitacaoStatusAutorizacao']['dadosBeneficiario']['numeroCarteira'] = $tisint_num_crt;
            $hash .= $tisint_num_crt;

            $dataVersao['solicitacaoStatusAutorizacao']['dadosBeneficiario']['atendimentoRN'] = $tisint_sta_rna;
            $hash .= $tisint_sta_rna;

            $dataVersao['solicitacaoStatusAutorizacao']['dadosBeneficiario']['nomeBeneficiario'] = $tisint_nom_ben;
            $hash .= $tisint_nom_ben;
            
            
            $dataVersao['solicitacaoStatusAutorizacao']['dadosContratado']['codigoPrestadorNaOperadora'] = $cod_hsvp;
            $hash .= $tisint_cod_prf;

            $dataVersao['solicitacaoStatusAutorizacao']['dadosContratado']['nomeContratado'] = 'HOSPITAL SAO VICENTE DE PAULO';
            $hash .= $tisint_nom_prf;


            $dataVersao['hash'] = md5($hash);

            $xml = xml::arraytoXml($dataVersao, 'mensagemTISS'); 
            $xml = xml::ajustaVersaoXml($xml); 

            $estrutura = $funcoes->verificarDiretorios();
            
            $arq_xml_err = 'arquivos/xml_err/' . $estrutura . $tisint_num . '.xml';
            $arq_xml_sta = 'arquivos/xml_sta/'     . $estrutura . $sequencialTransacao . '_env.xml';


            file_put_contents($arq_xml_sta, $xml);

            $xml = file_get_contents($arq_xml_sta);
            $xml = xml::xmlToArray($xml); // CUIDADO SE TIVER UM VALOR VAZIO - VAI O VALOR O TEXTO ARRAY, DESTA FORMA OCORRE ERRO
            $xml['hash'] = xml::hashToArray($xml); 

            //@unlink($arq_xml_xml);
            
            $result = $clientSoap->tissSolicitacaoStatusAutorizacao($xml);
            
            $xml_arq = xml::objectToArray($result);
            //print_r($xml_arq);

            $arq_xml_sta = 'arquivos/xml_sta/'     . $estrutura . $sequencialTransacao . '_rtn.xml';

            $xml_arq = xml::arraytoXml($xml_arq, 'mensagemTISS');
            $xml_arq = xml::ajustaVersaoXml($xml_arq);
            file_put_contents($arq_xml_sta, $xml_arq); 
            
            $resultado = $retorno->Processamento($result,'PRR_STA');  
            $total_de_verif++;
            
            @$senha = $result->situacaoAutorizacao->autorizacaoInternacao->autorizacaoDosServicos->dadosAutorizacao->senha;
                
            $msg = $count_envio.' - Guia: '.Funcoes::setChaveProrrogacao($tisint_num, $tisintprr_num).' - Senha: '.$senha.' - Paciente: '.$pac_cod.' - Carteira: '.$tisint_num_crt.' - Senha da Internação: '.$tisint_snh.' - Data Solicitação: '.$tisintprr_dat.' - Qtd Diárias: '.$tisintprr_qtd_dia_sol.' - Tipo Acomodação: '.$tisintprr_tpo_aco_aut.' | Numero Transação: '.$sequencialTransacao;  
                    
            if($resultado == TRUE){ 
                echo $msg .= ' - Processado retorno!<br><br>';  
                //file_put_contents($arq_xml_sta.'_sucesso', $msg);
                odbc_commit($bd_ingres);
            }else if($resultado == FALSE){
                odbc_rollback($bd_ingres);
                echo $msg .= ' - Erro não processado retorno!<br><br>';
                file_put_contents($arq_xml_err, $msg); 
            }  

        }
       
    } catch (Exception $ex) {
        odbc_rollback($bd_ingres);
    }
}

echo '<br> TOTAL DE VERIFICAÇÃO = '.$total_de_verif;


echo '<br><br><br> Guias com status em análise na unimed <br>';
$email_txt = '';
foreach($dados_email as $key => $dados){
    $email_txt .= str_pad(($key + 1),3,'0',STR_PAD_LEFT).' - Data de envio:'. Funcoes::invertDH_D($dados['data']).', Paciente:'.$dados['nome'].', Senha: '.$dados['senha'].';<br>';
}
echo $email_txt;

?>